home *** CD-ROM | disk | FTP | other *** search
- struct FStatistics
- {
- long bites;
- long words;
- long lines;
- };
- /*
- * Pictures for the up and down arrows
- */
- static USHORT arrows[2][GHEIGHT] = {
- {0xFE7F, 0xFC3F, 0xF81F, 0xF00F, /* Up */
- 0xFC3F, 0xFC3F, 0xFC3F, 0xFC3F, 0xFC3F},
- {0xFC3F, 0xFC3F, 0xFC3F, 0xFC3F, /* Down */
- 0xFC3F, 0xF00F, 0xF81F, 0xFC3F, 0xFE7F}
- } ;
- /*
- * Now, the Image structures that use the arrows
- */
- static struct Image Arrow_Image[2] = {
- {0, 0, GWIDTH, GHEIGHT, 1, arrows[UP_GADGET], 1, 0, /* Up */
- /*(struct Image *)*/ NULL},
- {0, 0, GWIDTH, GHEIGHT, 1, arrows[DOWN_GADGET], 1, 0, /* Down */
- /*(struct Image *)*/ NULL}
- };
- /*
- * Now, my Gadget structures
- */
- static struct PropInfo prop;
- static struct Image prop_img;
-
- static struct Gadget Scroll_Gadget = {
- /*(struct Gadget *)*/ NULL, /* End of Gadgets */
- 0,11+GHEIGHT, /* Left, Top */
- GWIDTH, -(19 + GHEIGHT),
- GRELHEIGHT | GADGHCOMP | GADGDISABLED,
- RELVERIFY, /* Messages when released */
- PROPGADGET,
- (APTR) &prop_img,
- (APTR) NULL, /* No rendering image, using HCOMP */
- /*(struct IntuiText *)*/ NULL,
- 0L, /* No mutex */
- (APTR) &prop,
- SCROLL_GADGET, /* Yes, this is the scroll gadget */
- (APTR) NULL /* And nothing of mine */
- };
-
- static struct Gadget Up_Gadget = {
- &Scroll_Gadget, /* next gadget is scroll */
- 0,11, /* Left, Top */
- GWIDTH, GHEIGHT,
- GADGIMAGE | GADGDISABLED | GADGHCOMP,
- RELVERIFY, /* Messages when released */
- BOOLGADGET, /* These be boolean gadgets */
- (APTR) &(Arrow_Image[UP_GADGET]),
- (APTR) NULL, /* No rendering image, using HCOMP */
- /*(struct IntuiText *)*/ NULL,
- 0L, /* No mutex */
- (APTR) NULL, /* Nothing special */
- UP_GADGET, /* Yes, this is the up gadget */
- (APTR) NULL /* And nothing of mine */
- };
-
- static struct Gadget Down_Gadget = {
- &Up_Gadget, /* Next gadget is Up_Gadget */
- 0, 1 - GHEIGHT, /* Left, Top */
- GWIDTH, GHEIGHT,
- GRELBOTTOM | GADGIMAGE | /* Standard bottom border gadget */
- GADGDISABLED | GADGHCOMP,
- RELVERIFY | BOTTOMBORDER, /* Messages when released */
- BOOLGADGET, /* These be boolean gadgets */
- (APTR) &(Arrow_Image[DOWN_GADGET]),
- (APTR) NULL, /* No rendering image, using HCOMP */
- /*(struct IntuiText *)*/ NULL,
- 0L, /* No mutex */
- (APTR) NULL, /* Nothing special */
- DOWN_GADGET, /* Yes, this is the down gadget */
- (APTR) NULL /* And nothing of mine */
- };
-
-